From 4db365fd78fb18c01d5cbc70d33eb28bd52c1fd7 Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Thu, 26 Nov 2009 23:38:18 +0000 Subject: [PATCH] * sha1.el (sha1-string-external): default-directory "/" in case otherwise non-existent. process-connection-type pipe for touch of efficiency recommended by elisp manual. (An aside in Bug#3911.) --- lisp/sha1.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/sha1.el b/lisp/sha1.el index 4aca53f196c..9fe327e514e 100644 --- a/lisp/sha1.el +++ b/lisp/sha1.el @@ -86,7 +86,9 @@ If this variable is set to nil, use internal function only." :group 'sha1) (defun sha1-string-external (string &optional binary) - (let (prog args digest) + (let ((default-directory "/") ;; in case otherwise non-existent + (process-connection-type nil) ;; pipe + prog args digest) (if (consp sha1-program) (setq prog (car sha1-program) args (cdr sha1-program)) -- 2.30.2